﻿Public Class Status


    Sub New()
        CorrectQuestionCount = 0
        CurrentQuestion = 0


    End Sub


    Private _correctQuestionCount As Integer
    Public Property CorrectQuestionCount() As Integer
        Get
            Return _correctQuestionCount
        End Get
        Set(ByVal value As Integer)
            _correctQuestionCount = value
        End Set
    End Property


    Private _currentquestion As Integer
    Public Property CurrentQuestion() As Integer
        Get
            Return _currentquestion
        End Get
        Set(ByVal value As Integer)
            _currentquestion = value
        End Set
    End Property

    Private _isLastQuestion As Boolean
    Public Property IsLastQuestion() As Boolean
        Get
            Return _isLastQuestion
        End Get
        Set(ByVal value As Boolean)
            _isLastQuestion = value
        End Set
    End Property

    Private _isFirstQuestion As Boolean
    Public Property IsFirstQuestion() As Boolean
        Get
            Return _isFirstQuestion
        End Get
        Set(ByVal value As Boolean)
            _isFirstQuestion = value
        End Set
    End Property

    Private _alertUser As Boolean
    Public Property AlertUser() As Boolean
        Get
            Return _alertUser
        End Get
        Set(ByVal value As Boolean)
            _alertUser = value
        End Set
    End Property


    Private _howManyAnsweredThisCorrectly As String
    Public Property HowManyAnsweredThisCorrectly() As String
        Get
            Return _howManyAnsweredThisCorrectly
        End Get
        Set(ByVal value As String)
            _howManyAnsweredThisCorrectly = value
        End Set
    End Property

    Private _isAnswered As Boolean
    Public Property IsAnswered() As Boolean
        Get
            Return _isAnswered
        End Get
        Set(ByVal value As Boolean)
            _isAnswered = value
        End Set
    End Property

    Private _isCorrectAnswered As Boolean
    Public Property IsCorrectAnswered() As Boolean
        Get
            Return _isCorrectAnswered
        End Get
        Set(ByVal value As Boolean)
            _isCorrectAnswered = value
        End Set
    End Property


End Class
